home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / scr104a.zip / RARAM3.TEM < prev    next >
Text File  |  1992-01-02  |  3KB  |  149 lines
  1. When continue: ^M
  2. When More( ^M
  3. When "press any" ^M
  4. When "Press any" ^M
  5. If $ne("@gateway","")
  6.    When "@gateway" "@response"
  7. EndIf
  8. If $ne("%port","@vport")
  9.    Set Port=@vport
  10. EndIf
  11. While NOT Connected
  12.    Dial/@waittime "@numberA" _
  13.                   "@numberB" _
  14.                   "@numberC" _
  15.                   "@numberD"
  16. EndWhile
  17. Wait "FULL NAME"
  18. If $ne("@gateway","")
  19.    EndWhen "@gateway"
  20. EndIf
  21. SendWait "@username^M" Password:
  22. SendWait "@password^M" "The Board"
  23. When "waiting mail" n
  24. When "new files" n
  25. SendWait ^M Select:
  26. EndWhen "new files"
  27. EndWhen "waiting mail"
  28.  
  29. %ufile := "@packet.FUL"
  30. %uhandle := fopen %ufile
  31. If %NoError
  32.    %uhandle := fsize %usize
  33.    If %usize = 0
  34.       %uhandle := fclose
  35.    EndIf
  36. Else
  37.    %usize := 0
  38. EndIf
  39.  
  40. %dfile := "@packet.FDL"
  41. %dhandle := fopen %dfile
  42. If %NoError
  43.    %dhandle := fsize %dsize
  44.    If %dsize = 0
  45.       %dhandle := fclose
  46.    EndIf
  47. Else
  48.    %dsize := 0
  49. EndIf
  50.  
  51. If (%dsize # 0) | (%usize # 0)
  52.  
  53.    SendWait f "Select:"
  54.  
  55.    If %usize # 0
  56.       SendWait u "FileDoor"
  57.       SendWait z "Give filename"
  58.       %uhandle := fread %fname
  59.       While NoError
  60.          $rchpos %i %fname "\"
  61.          If %i # %maxint
  62.             Inc %i
  63.             $delete %fname 0 %i
  64.          EndIf
  65.          SendWait "~%fname^M" "Give filename"
  66.          %uhandle := fread %fname
  67.       EndWhile
  68.       SendWait ^M "after transfer"
  69.       SendWait ^M **B01
  70.       %uhandle := fclose
  71.       Upload zmodem .%currdir\%ufile
  72.       Wait "Perform another"
  73.       SendWait n Select:
  74.       If NoError
  75.          If $eq("@confirm","Y")
  76.             Ask "Delete %ufile? (Y/N) " %reply 1 1 Y
  77.             $caps %reply
  78.          Else
  79.             %reply := "Y"
  80.          EndIf
  81.          If $equal %reply Y
  82.             Delete %ufile
  83.          EndIf
  84.       EndIf
  85.    Else
  86.       Delete %ufile
  87.    EndIf
  88.  
  89.    If %dsize # 0
  90.       SendWait d FileDoor
  91.       SendWait z descriptions
  92.       SendWait n Filemask
  93.       %dhandle := fread %fname
  94.       While NoError
  95.          $rchpos %i %fname "\"
  96.          If %i # %maxint
  97.             Inc %i
  98.             $delete %fname 0 %i
  99.          EndIf
  100.          SendWait "~%fname^M" "Select file:"
  101.          SendWait y Filemask
  102.          %dhandle := fread %fname
  103.       EndWhile
  104.       %dhandle := fclose
  105.       SendWait ^M "after transfer"
  106.       SendWait ^M **B00
  107.       Download zmodem !
  108.       Wait "Perform another"
  109.       SendWait n Select:
  110.       If NoError
  111.          If $eq("@confirm","Y")
  112.             Ask "Delete %dfile? (Y/N) " %reply 1 1 Y
  113.             $caps %reply
  114.          Else
  115.             %reply := "Y"
  116.          EndIf
  117.          If $equal %reply Y
  118.             Delete %dfile
  119.          EndIf
  120.       EndIf
  121.    Else
  122.       Delete %dfile
  123.    EndIf
  124. EndIf
  125.  
  126. %repname := "%updir\@packet.REP"
  127. SendWait m Select:
  128. SendWait @ramkey "Mail Command"
  129. If Exists %repname
  130.    SendWait u **B01
  131.    Upload zmodem %repname
  132.    Wait "Mail Command"
  133.    If NoError
  134.      Delete %repname
  135.    EndIf
  136. EndIf
  137. SendWait d "bort Transfer" "Mail Command"
  138. If Had 1
  139.    SendWait g **B00
  140.    Download zmodem !
  141.    Wait "angup now"
  142.    SendWait h "NO CARRIER"
  143. Else
  144.    SendWait g "NO CARRIER"
  145. EndIf
  146. If $ne("%port","%dport")
  147.    Set Port=%dport
  148. EndIf
  149.